^  dln - delete files not in wildcard list              ^
local FLN
if %# == 0
  echo !
  Delete files not in wildcard list
  usage:   dln <filespecs>
  example: dln *.arc  ; dln will delete all files which are not .arc files
  !
  exit
endif
shx -dfn1 %0 > %{SH1FILES}sh1tmp1
shx -dfn1 *.* | xtr -f -I -k%{SH1FILES}sh1tmp1 -v > %{SH1FILES}sh1tmp2
for FLN infile %{SH1FILES}sh1tmp2
  echo Deleting %FLN
  del %FLN
endfor
